home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / math / gurafu.bas < prev    next >
BASIC Source File  |  1993-11-30  |  975b  |  38 lines
  1. 10 CLS
  2. 20 LINE (80,240)-(550,240),PSET,7
  3. 30 LINE (320,0)-(320,480) ,PSET,7
  4. 40 '
  5. 50 INPUT "増分値=",Z : IF Z=0 THEN 50
  6. 60 PRINT "Y=aX2のグラフ"
  7. 70 INPUT "色=",C
  8. 80 IF C=0 OR C=1 OR C=2 OR C=3 OR C=4 OR C=5 OR C=6 OR C=7 THEN 90 ELSE 70
  9. 90 INPUT "a=",A
  10. 100   IF A=<-100  THEN 50
  11. 110   IF A=>100 THEN 10
  12. 120   IF A=0   THEN 280
  13. 130 FOR I=0 TO 4.5! STEP Z
  14. 140  X=-I : Y=A*X*X
  15. 150   PSET (X*10+320,240-Y*10),C
  16. 160    NEXT I
  17. 170 FOR I=0 TO 4.5! STEP Z
  18. 180  X=I : Y=A*X*X
  19. 190   PSET (X*10+320,240-Y*10),C
  20. 200    NEXT I
  21. 210  GOTO 90
  22. 220 '
  23. 230 '
  24. 240 CLS
  25. 250 LINE (80,240)-(550,240),PSET,7
  26. 260 LINE (320,0)-(320,480) ,PSET,7
  27. 270 '
  28. 280 PRINT "Y=aX+bのグラフ"
  29. 290 INPUT "色=",C
  30. 300 IF C=0 OR C=1 OR C=2 OR C=3 OR C=4 OR C=5 OR C=6 OR C=7 THEN 310 ELSE 290
  31. 310 INPUT "a=", A
  32. 320 IF A=0  THEN 50
  33. 330 IF A>=100 THEN 240
  34. 340 INPUT "b=", B
  35. 350 LINE (320,240-B*10)-(640,240-320*A-B*10),PSET,C
  36. 360 LINE (320,240-B*10)-(0,240+320*A-B*10),PSET,C
  37. 370 GOTO 310
  38.